|
|  Double Dot
|  Written by Ph. DONSBACK
|
|
SCRIPT_TYPE 1
|
BEGIN "Double Dot"

  FLAGS ClickFly AnimateFly AutoFly
  PACKS 1
  WIDTH 8 * CW
  HEIGHT CH * 2 + COH * 13
  ZeroToWin 52 - CARDSIN$2 

| Foundations

  FOUNDATION
    X 2 * CW
    Y 0
    First 1
    JoinOffset 2
    DEAL 1,0
    DealCard h1
    FLAGS RotateJoin JoinSS__
    ID 2
  END

  FOUNDATION
    X 3 * CW
    Y 0
    First 1
    JoinOffset 2
    DEAL 1,0
    DealCard d1
    FLAGS RotateJoin JoinSS__
    ID 2
  END

  FOUNDATION
    X 4 * CW
    Y 0
    First 1
    JoinOffset 2
    DEAL 1,0
    DealCard c2
    FLAGS RotateJoin JoinSS__
    ID 2
  END

  FOUNDATION
    X 5 * CW
    Y 0
    First 1
    JoinOffset 2
    DEAL 1,0
    DealCard s2
    FLAGS RotateJoin JoinSS__
    ID 2
  END


| Tableau

  FOR stack = 0 TO 7
    STACK
      X stack * CW
      Y CH
      DEAL 1,0
      First 1,13
      JoinOffset -2
      DragOffset -2
      FLAGS clickfly RotateJoin Join____ DeepCheck Drag____
      ID 4
    END
  END


| Stock

  STACK
    X 7 * CW
    Y 0
    DEAL 40
    DEALTO 4,1
    TAKEFROM 0
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

END
